home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_87-12_1987_-_de_Side_B.d64 / Z 06 Z (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  87 lines
  1. 0 v=53248:d$="":pokev+33,0:pokev+32,0:print"[147]"d$
  2. 1 pokev+21,0:pokev+28,0:pokev+23,0:pokev+29,0:b$="                            "
  3. 2 printchr$(8)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
  4. 3 [153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
  5. 4 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
  6. 5 [153][166]7)" waitloglogloglog  lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
  7. 6 printspc(7)"[175][146] s  o  f  t  w  a  r  e[158][161]
  8. 7 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
  9. 8 fori=0to17:print:fork=0to9:nextk,i:print"
  10. 9 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto          toandposnew"
  11. 10 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
  12. 11 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
  13. 12 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[130]
  14. 13 u$[178]"        p r e s e n t s":[129]i[178]1[164]8
  15. 14 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
  16. 20 [129]i[178]0[164]3e3:[130]:[153]"load":[151]53272,([194](53272)[175]240)[176]2:s[178]54272:[158]4458
  17. 21 [129]i[178]0[164]9:n$(i)[178]"computer ___ 0000 fnd,":[130]
  18. 22 [151]v[170]21,0:[151]v[170]29,0:[153]"loaddef"[166]14)"peeklenstr$valascvalascchr$left$peeklen"[166]29)"clrright$mid$(NULL)(NULL) (NULL) (NULL)(NULL)right$mid$
  19. 24 poke36898,59:poke36899,2:poke5843,33:sys5758:printspc(54)"(c) 1987 [159]by
  20. 26 [153][166]51)"sysi m p e r a t o r"[166]24)"s o f t w a r e
  21. 28 print"[154]oh herr. eure burg ist in gro^er gefahr!
  22. 30 [153]"ondie knechte des b\sen ritters gumbart
  23. 32 print"schicken sich an. eure burg hohenfels zu
  24. 34 [153]"onerst]rmen, wehrt die garstigen kerle
  25. 36 print"ab, von den letzten bauarbeiten liegen
  26. 38 [153]"noch eine menge steine herum,
  27. 42 a=0:printspc(49)"[150]wieviel mut habt ihr?
  28. 44 a$(0)[178]"  knappe  ":a$(1)[178]"  ritter  ":a$(2)[178]" burgherr ":a$(3)[178]"  k\nig   "
  29. 46 [129]i[178]0[164]3:[153][200](d$,19[170]i[170]i)[166]14)""a$(i)"":[130]
  30. 48 [153][200](d$,19[170]a[170]a)[166]14)"sys"a$(a)"
  31. 50 if(peek(56320)and1)=0thenifa>0thena=a-1
  32. 52 if(peek(56320)and2)=0thenifa<3thena=a+1
  33. 54 if(peek(56320)and16)=0goto100
  34. 56 goto46
  35. 100 poke36898,55:poke36899,2:poke5843,17
  36. 105 print"[152][147][193][193][151][184][183]                                [185][186][152][193][193]";
  37. 110 print"[193][193][151]  [146][184][183]                            [185][186]  [146][152][193][193]";
  38. 120 print"[193][193][151]    [146]                                [146][152][193][193]":fori=4to25
  39. 130 printleft$(d$,i)"[193][193][151] [146][152][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][151] [146][152][193]
  40. 140 [151]1023[170]i[172]40,65:[130]
  41. 150 [129]i[178]1[164]5:[153][202]("stoppokeprint#listsys",i,1)""[166]8)"peeklenstr$valascvalascchr$left$peeklen
  42. 160 printspc(8)"[145][201][202][203][206] [206] [204][205][201][202]":forj=0to66:nextj,i
  43. 170 print""spc(21)"erschlagene"spc(29)"feinde:[150]0000
  44. 180 [158]4096
  45. 200 [129]i[178]36864[164]36884:[151]i,0:[130]:[151]36865,1:[151]36866,8.5[171]1.5[172]a:sw[178]a
  46. 210 [129]i[178]41[164]47:[151]v[170]i,1:[130]:[151]36900,1:[151]36901,1
  47. 300 [158]5746:[139][194](2)[178]0[137]300
  48. 310 [151]v[170]21,[194](v[170]21)[175]254:[151]2041,210:[129]i[178]0[164]5:[139][194](v[170]5[170]i[170]i)[178]66[167]p[178]i
  49. 320 [139][194](2042[170]i)[177]199[167][151]v[170]21,[194](v[170]21)[175](255[171]2[174](i[170]2))
  50. 330 [130]:sc[178]0:[129]i[178]0[164]3:sc[178]sc[170]([194](1095[171]i)[171]48)[172]10[174]i:[130]
  51. 340 [151]v[170]5[170]p[170]p,65:[129]i[178]211[164]224:[151]2042[170]p,i:[129]j[178]0[164]66:[130]j,i:[151]2042[170]p,210
  52. 350 a[178]v[170]4[170]p[170]p:b[178]2[174](2[170]p):x[178][194](a):[139][194](v[170]16)[175](2[174](2[170]p))[167]x[178]x[170]256
  53. 360 y[178][194](v[170]2):[139][194](v[170]16)[175]2[167]y[178]y[170]256
  54. 370 j[178]y[171]x:[139][182](j)[179]4[137]400
  55. 380 [139]j[179]0[137]390
  56. 382 x[178]x[170]1:[139]x[178]256[167][151]v[170]16,[194](v[170]16)[176]b:[151]a,0:[137]370
  57. 384 [151]a,[194](a)[170]1:[137]370
  58. 390 x[178]x[171]1:[139]x[178]255[167][151]v[170]16,[194](v[170]16)[175](255[171]2[174](2[170]p)):[151]a,255:[137]370
  59. 392 [151]a,[194](a)[171]1:[137]370
  60. 400 [129]i[178]224[164]211[169][171]1:[151]2041,i:[129]j[178]0[164]66:[130]j,i:[151]2041,200
  61. 410 a[178][171]5:[129]i[178]66[164]250[169]2:[151]v[170]3,i:a[178]a[170]1
  62. 420 [139]a[178]8[175][194](2041)[179]205[167]a[178]0:[151]2041,[194](2041)[170]1
  63. 430 [130]:a[178]54280:[151]a,2:[151]a[170]4,0:[151]a[170]5,249:[151]a[170]3,33:[151]a[170]3,32
  64. 440 [129]i[178]0[164]250:[130]:[129]i[178]0[164]2:[129]j[178]209[164]207[169][171]1:[151]2042[170]p,j
  65. 450 [129]k[178]0[164]66:[130]k,j:[129]j[178]208[164]210:[151]2042[170]p,j:[129]k[178]0[164]66:[130]k,j,i
  66. 460 [158]6026:[151]v[170]39,1:[151]v[170]40,1:[129]i[178]0[164]3e3:[130]:[151]v[170]21,3[170]2[174](p[170]2)
  67. 462 p[178]10:a[178]49[172]sw[170]sc:[129]i[178]9[164]0[169][171]1:[139]a[177]h(i)[167]p[178]i
  68. 464 [130]:[139]p[177]9[137]500
  69. 466 [129]i[178]10[164]p[170]1[169][171]1:n$(i)[178]n$(i[171]1):h(i)[178]h(i[171]1):[130]
  70. 468 n$(p)[178][202](a$(sw),2)[170]"??? ":h(p)[178]a
  71. 470 u$[178][202]([196](sc),2):n$(p)[178]n$(p)[170][200]("0000",4[171][195](u$))[170]u$[170]" fnd,"
  72. 500 [129]i[178]10[164]23:[153][200](d$,i)[166]6)b$:[130]
  73. 510 [153][200](d$,10)[166]6)"poke";b$[200](d$,23)[166]6)b$"cmd(NULL)"[200](d$,10);
  74. 520 [153][166]6)"(NULL)"[166]26)"(NULL)"[200](d$,23)[166]6)"(NULL)
  75. 530 fori=11to22:printleft$(d$,i)spc(6)" "spc(26)" ":next
  76. 540 printleft$(d$,11)spc(9)"[154]die 10 gr\^ten helden:
  77. 550 [129]i[178]0[164]9:[153][200](d$,13[170]i)"def";:[139]i[178]0[167][153]"for";
  78. 560 [153][166]7)i[170]1;:[139]i[178]9[167][153]"cmdcmdcmdcmd10 ";
  79. 570 [153]"cmd, "n$(i):[130]:[139]p[177]9[167][129]i[178]0[164]5e3:[130]:[137]22
  80. 600 u$[178]"":[129]i[178]0[164]2:a[178]0
  81. 610 [153][200](d$,13[170]p)[166]20[170]i)"sys"[199](65[170]a)
  82. 620 [139]([194](56320)[175]16)[178]0[167]u$[178]u$[170][199](a[170]65):[158]5412:[129]j[178]0[164]500:[130]j,i:[137]700
  83. 630 [139]([194](56320)[175]4)[178]0[167]a[178]a[171]1:[139]a[179]0[167]a[178]29
  84. 640 [139]([194](56320)[175]8)[178]0[167]a[178]a[170]1:[139]a[178]30[167]a[178]0
  85. 650 [129]j[178]0[164]33:[130]:[137]610
  86. 700 n$(p)[178][200](n$(p),9)[170]u$[170][202](n$(p),13):[129]i[178]1[164]5e3:[130]:[137]22
  87.